a 


Bas 


FFFFFFFFFRFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTTTTTTTTTT LLet 
FFFFFRFFRRFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTTTTTTTTFT Lie 
FFFFFRFRRRFFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTITTTTTTTT §=LtL 
FFF 000 000 RRR RRR RRR RRR TTT LLL 
FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 
FFFFFFFFFFFF 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 
FFFFFFFFFFFE 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 
FFFFFFFFFFFF 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 

FFF 000 000 RRR RRR RRR = RRR TTT LLL 

FFF 000 000 RRR RRR RRR = =RRR TTT LLL 

FFF 000 RRR RRR RRR = RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 0 000 RRR RRR RRR RRR TTT LLL 

FFF 000000000 RRR RRR RRR RRR TTT LLLLLLLLLLELLLL 
FFF 000000000 RRR RRR RRR RRR TTT LLLLLLLLLLELLLL 
FFF 000000000 RRR RRR RRR RRR TTT LLLLELLLLLLLLLL 


) 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 


LOL LL LL LL LL LL LL LO LO LP LO LL LL LL 


**F LLE**1D**FORUDFWL 


FFEFFFFFFFE 000000 RRRRRRRR UU UU DDDDDDDD FFFFFFFFFF WwW Ww LL 
FFFFFFFFFF 000000 RRRRRRRR UU UU DDDDDDDD FFFFFFFFFF Ww Ww LL 
FF 00 00 RR RR UU UU DD DD FF WW Ww LL 
FF 00 00 RR RR UU UU DD DD FF ww Ww LL 
FF 00 00 RR RR UU UU DD DD FF WW Ww LL 
FF 00 00 RR RR UU UU DD DD FF WW Ww LL 
FFFFFFFF 00 00 RRRRRRRR UU UU DD DD FFFFFFFF WW Ww LL | 
FFFFFFFF 00 00 RRRRRRRR UU UU DD DD FFFFFFFF W LL 
FF 00 00 RR RR UU UU DD DD FF Ww Ww WwW LL 
FF 00 00 RR RR UU UU DD DD FF Ww Ww Ww LL 
FF 00 00 RR RR UU UU DD DD FF WWW WWwWW LL senda 
FF 00 00 RR RR UU UU DD DD FF WWW WWwWW LL alien 
FF 000000 RR RR UUUUUUUUUU DDDDDDDD FF WW WW LLELLLLLLLL pias 
FF 000000 RR RR UUUUUUUUUU DDDDDDDD FF WW WwW LLLLELLLLL eae 
| 
LL II1111 SSSSSSSS 
LL III] SSSSSSSS 
LL I] Ss 
LL II SS 
LL I] Ss 
LL II SS 
LL II SSSSSS 
LL Il SSSSSS 
LL II Ss 
LL Il SS 
LL Il SS 
LL II Ss 
LLLLLLLLLL HII SSSSSSSS 
LLLLELLLLL III] SSSSSSSS 
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| FORSSUDF _WL FORTRAN Write List Directed UDF 19300-1352 90:35:40 AX-11 Bliss-32 V4.0=-742 Page 
14-Sep-1984 12:32:54 FORRTL.SRCJFORUDFWL.B832;1 
0 MODULE FORSSUDF_WL (ZTITLE'FORTRAN Write List Directed UDF' 
IDENT =" ! File: FORUDFWL.B32 Edit: SBL1028 


="1-028' 
)e 


BEGIN 


' 
i wearer ee ee eee eeeeeeeee eee eeeeeeeeeeteeeeerereneeeeneeeeeeeeeeeeeeeneeeenees 
i : 

is COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

is DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
is ALL RIGHTS RESERVED. 


!* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
:* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
!* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
:* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
i: Fannsecaneee NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


!* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
i. eaRPORAT itn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


!® DIGITAL ASSUMES NO RESPONSIBI 
:® SOFTWARE ON EQUIPMENT WHICH | 


MMMNIN 3 St OS | SOOO OOOCOCOCO 


pelolelelelelelelelelelolelalelelolelelelelelo) 
=O ODNAMUE WN OOD NOU SWN OO ODNAUFS WN OOONOUS WR 


LITY FOR THE USE OR RELIABILITY OF ITS 
S NOT SUPPLIED BY DIGITAL. 


pepo fo fel a felololelolololololololalolololololeleloelololo) 


e@eeeeneneeneeeneneeenenennnen 


Ce SSE ESR ean ten ube 
NO UENO ODN NEW OOD NOME WN O ODNOU EWN SQ OODODNOULS WN OWOONOUS WR 


0 
0 
0 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
: 
MRCS Iti teil i titre i titi titi iit it it istic ii ii ii iti iii iiiti ii ii tt. 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


02 
02 '® 
02 '® 
02 
002 
003 '+4 
o°8 FACILITY: FORTRAN Support Library - not user callable 
005 ; ABSTRACT: 
it ENVIRONMENT: User access mode; reentrant AST Level or not. 
003 AUTHOR: Jonathan M. Taylor; CREATION DATE: 27-Jul-77 
003 i MODIFIED BY: 
004 ! Jonathan M. Taylor, 27-Jul-77: Version 0 
bbe } Steven B. Lionel, VAX/VMS V2.0 
004 i Previous edit history deleted. SBL 20-Oct-1980. 
0044 ! 1-001 = Update version number and copyright notice. JBS 16-NOV-78 
0045 ! 1-002 - Put value in impossible case of CASE statement to 
0046 ! keep BLISS compiler happy. JBS 27-NOV-78 
4 0047 ! 1-003 - Change REQUIRE file names from FOR... to OTS... JBS 07-DEC-78 
4 0048 ' 1-004 - —— ISBSA_BUF_PTR, BUF_END, BUF _HIGH, BUF _BEG to LUB. DGP 08-Jan-79 
4 0049 ! 1-005 = Use 32-bit addresses for externals. JB -JAN-1979 
5 0050 ! 1-06 - Add G, H, DC, GC support. SBL 14-Mar-197 
5 0051 i 1-007 = Fix FC so that it doesnt access second Longword of arg! SBL 14-Mar-79 
5 pO3¢ ! 1-008 - Add new integer output routines. SBL 26-Mar-79 
5 05 !' 1-009 - Check for record overflow. Make complex conform to ANSI 
5 0054 ; standard. SBL 50-Mar-1979 | aya 
5 0055 ! 1-010 - Have D and G values only print 15 fraction gigits. SBL 18-Apr-79 
5 0056 ! 1-011 = Complete H floating support. SBL 12-Jun-1979 ; 
5 0057 ! 1-012 = REC Level no longer puts in a first blank. Put them in here. 
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1-024 


00:52:40 AX-11 Bliss-32 V4.0-74 Page 2 FO 
14- ~3e 71382 9:33:80 PORRTL” SR RETFORUDFUL, B32;1 as Lin 


SBL yt ye 

Put D and G back the way they were. 1PG25. “, a, 7 8 abies 

OTSSCVT_x_TG routines are now FORSCVT_x 16. 

If not eguent ial org, give ‘mixed tite” aecees iagge - SBL 3-0ct-1979 

Make 1-015 read »feapent al access. SBL 4-0ct-19 

Insert leading blank for continued character strings. 1995 4-0ct-1979 

Remove ecress check, done in FOR$$I0_ BEG. SBL 5-Dec-19 

Add DOW to do REC! calls through dispatch able $9 that 

PORSSUBF. une (NAMELIST) can call UDF_WL1. SBL 20- 

age REPEAT_CNT rearaeeter to UDF_WL1” = NAMELIST. tL y 1980 
Signal FO ross .OUTSTAOVE immediately rather than storing in ISB. SBL 7-Nov-1980 
e Leading blank and repeat count work correctly for complex. SBL 10-Dec-1980 

= t separate aeres see values with a space, since the standard 

says not aici Add BU — ype to be same as 6. SBL ye yynec ine! 

Specify d hob in oxp a8 for G ree rs and 4 for H_floating 

since editing 7s Tmplicitly Ew.dEe and the exponent letter 

therefore cannot be dropped, per standard. JAW 25~Aug~ -1981 

Start a new record for any character A that gon fit in 

the current (partly-filled) record. JAW 26-Aug-1981 

Finish edit 1-024, which should have lecreseet’ the field size 

used for a complex G_floating value by one. JAW 31-Aug-1981 

Remove extra Leading | space from D and G output and reduce 

| eer of fraction digits for G to 15. SBL 10-Nov-1981 


JSB to REC-level routines through dispatch tables to allow 
List-directed internal files. Use prologue file. SBL 21-Apr-1983 


FORSSUDF UL FORTRAN Write List Directed UDF 
86 § i PROLOGUE FILE 
88 8 i ; 
89 8 
30 8 REQUIRE 'RTLIN:FORPROLOG'; 
9 ' 
9 ' TABLE OF CONTENTS: 
: : 
96 FORWARD ROUT INE 
97 ORSSUDF _WLO: JSB_UDFO NOVALUE, 
98 FORSSUDF “wh1: CALC_CCB NOVALUE, 
99 FORSSUDF_WL9: JSB_ODF9 NOVALUE, 


DO_WRITE? JSB_RECT NOVALUE; 
i] 


EQUATED SYMBOLS: 
i NONE 


! 

t OWN STORAGE : 

None 

; EXTERNAL REFERENCES: 


EXTERNAL ROUTINE 


FORSSSIGNAL_STO : NOVALUE, 


AEs 94 LIL, 


te tt a 2 9 4 ss 9 4s 2 — 9 9 9 hs ss 4 ss ss ss hs ss 2s 2s ss ) 2 ss ss ss 2 ) ss 3 2 2 1 OO OOO 
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ee ee eee ee eee 
WAI AI PNP NPONDNYPYNDD 2 9 PO SS S| MS OOOO COCOOCCOCO 
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AX=11 a? 
FORRTL.S 


4.0-7 
FWL. 835; 1 


:40 -32 V P 
4 neironup 6 


' FORTRAN definitions 


UDF initialization | 

format one user I/0 List element 

UDF termination a 

Call the REC level to write a record 


! Signal fatal error 


: The , following are general Library routines available for any 
: one's use (value is true if fits in field): 


to text, L format 
to text, I format 
text, G format 
text, e format 

G 


Convert 
Convert 
Convert F 
Convert 
Convert 
Convert 


text, format 
text, format 


PIC arrays of record processor procedures 
Write a record in REC Level of 
abstraction. Indexed by I/0 statement 
type (ISBSB_STTM_TYPE) 
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FORS BUDE ul FORTRAN Write List Directed UDF 1B-5¢ Sep-1 
1-0 -Sep-1 
50 FF71 CB 9A 
50 0000000060040 00 9000? 
0000000060040 16 0000D 
BC AB BO AB DO 00014 
05 00019 


; Routine Size: 


26 bytes, 


Routine Base: _FORSCODE + 0000 


00000 FORSSUDF WLO:: 
MOVZBL 


384 72:35:52 EeGaate°sneSronubroL -0391 


.PSECT _FORSCODE,NOWRT, SHR, PIC,2 
-143(CCB) 

FORSSAA Baece "PROROI, RO 

JSB FORS$$SAA~REC~PROLRO 

MOVL -B0(CCBY, -88(CCB) 


M14 
FORTRAN Write List Directed UDF Jon~gen= 1386 90:3 740 AX=-11 O tee a V4.0-74 
14-Sep-1984 12:32:54 FORRTL.SRCJFORUDFWL.B32;1 


181 4 GLOBAL ROUTINE FORSSUDF_WL1 ( 

136 4 ELEM_TYPE, 

18 4 ELEM_SIZE, 

184 4 ELEM ADR, 

185 4 FC_FCAG 

i TEAL 8 wowace 

188 5 sa - 

189 5 !4+ 

19 3 FUNCTIONAL DESCRIPTION: 

19¢ 5 i Write list-directed User Data formatter. 

19 5 Accept an 1/0 element, format it, and put it in the record buffer. 
13° 5 Calls record level processors to perform the actual 1/0. 
196 i CALLING SEQUENCE: 

198 CALL FORSSUDF_WL1 (elem _type.rlu.v, elem_size.rlu.v, elem_adr.rx.r 
138 C. fe_flag.rlu.v C, repeat_cnt.rl.vlJ) 

201 i FORMAL PARAMETERS: 

203 ELEM_TYPE.rlu.v pe code of user 1/0 List 

204 element. Form: ELEM_TYPE_x 

205 x = B,W,L,BU,WU,LU,F,D,FC or T. 

206 ELEM_SIZE.rlu.v Size of user I/0 List element 

207 in addressable machine units 

208 0, this is end of I/0 List call. 
209 ELEM_ADR.rx.r Adr. of user I/0 List element 


' 

' 

' 

' 

' 

' 

' 

| 

4 

' 

! 

' 

' 

' 

' 

' 

‘ 

' 

: x = b, w, Ll, bu, wu, lu, f, d, fe, t, 

, h, dc or ge. 

‘ CFC_FLAG.rlu.vJ f present: 

: Q - real part of COMPLEX number 

; 1- egrets part of COMPLEX number 

; 2 - not complex number, but repeat cnt present 
: CREPEAT_CNT.rl.vJ If present, the value written is to prefaced oY 
: a repeat count of the form nt. The value of the 
parameter is the repeat count. 

' 
' 
4 
i] 
' 
' 
' 
' 
' 
' 
' 
' 
1 
' 
' 
' 
' 
! 


i IMPLICIT INPUTS: 
NONE 

i IMPLICIT OUTPUTS: 
NONE 


i ROUTINE VALUE: 
i COMPLETION CODES: 


NONE 
i SIDE EFFECTS: 
NONE 
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FORTRAN Write List Directed UDF 6=Sep-1984 00:52:40 AX-11 Bliss-32 V4.0-74 Page 7. FO 
4 Sep 198¢ 99:33:60 . 


FORRTL.SRCJFORUDFWL.B32;1 (4) 


; 238 0300 1 : 
: S70 0301 BEGIN : 
: 240 0 8 

: $e) 030 EXTERNAL REGISTER 

: tg Bebe CCB: REF SFORSCCB_DECL; 

: 24 0305 

: 244 0306 BUILTIN 

> 245 0307 ACTUALCOUNT; 

> 246 0308 

: 247 0309 BIND 

> 248 0310 FIELDSIZE = 

; $38 tae UPLIT BYTE( 

; 250 0 \¢ 0, ' not used 

s @o) 0313 2 0, ! not used 

3 $26 0314 2 D6 ' BU (same as B for FORTRAN) 

; @ 0315 2 Re ' WU 

> 254 0316 2 2, ' LU 

s €99 0317 2 0, ' not used 

; ¢ 0318 2 De ' 8B 

s gor 0319 2 7 ' WwW 

: 258 0320 2 12, i 

: £29 0321 2 0 ' not used 

; 260 032¢ g 15, iF 

s gel 032 24, 'D ay 

: 262 0324 2 11, ! FC = absolute minimum for real part 

: 263 0325 2 20, ' DC = absolute minimum for real part 

: 264 0326 2 ' types between DC and G not used 

s 265 0327 2 24, ' G 

; 266 0328 2 43, ‘4H or 

; 267 0329 2 19) ! GC = absolute minimum for real part 

: 268 0330 2 :VECTORC, BYTE); 

: 269 0331 2 

: «ero O36 2 ELEM_ADR: REF VECTOR; ! element is call-by-reference 

; $f) 0335 2 

3: ae 0334 2 LOCAL ; 
; ar 0335 2 , ! number of bytes left in record buffer 
: 274 0336 § ELEM_TYPE, ! If first part of COMPLEX then FC else .ELEM_TYPE 
: 275 0337 REPEAT_COUNT, ! Local Gopy of repeat count : 

; 276 0338 2 REPEAT_DSC: DSCSDESCRIPTOR ' Descriptor for repeat string 

; el? 0339 2 REPEAT-STR: VECTOR C12, BYTE], | Repeat count string 

s ee 0340 2 L; ' Field length of this element 

; e279 0341 2 

: 280 Beg 2 '+ . u 

: 281 034 ! If we're being called to write the first part of a COMPLEX number, 

; 282 0344 ! then change the ELEM_TYPE to COMPLEX. If called for the second part 
s 263 ote ' of a COMPLEX number Ehen just return since the first part really 

3; «6284 346 ' wrote both parts... 

; 286 0348 2 

5 gor 0349 ¢ LELEM_TYPE = 

: 288 0350 (IF ATTUALCOUNT() GTR (FC_FLAG - ELEM_TYPE)/%UPVAL 

; 289 0351 3 THEN 

; 2 0326 4 BEGIN 

: 291 0353 4 IF .FC_FLAG EQL 1 

: 3 0354 4 THEN 

: 9 0355 4 RETURN; 

; 29% 0356 4 IF .FC_FLAG LSS 1 
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i If the otring won't fit in the remaining portion of the 
' buffer, and the buffer is not empty, write out the buffer and 
start a new record. 


IF .L GTR CHSDIFF (.CCB C 
AND .CCB CLUBSA_BUF_P 


0414 ! If there is not enough room in this record buffer for the element, ; 
0415 ' then write this buffer and start anew. If entire record wont ‘ 
B28 ' fit value, return error FOR__OUTSTAOVE. ‘ 
0418 : 
8) § vat + .REPEAT_DSC CDOSC$W_LENGTH]) GTR CHSDIFF (.CCBCLUBSA_BUF_ENDJ, .CCBCLUBSA_BUF_PTRI) ; 
0421 2 IF (.L_+ .REPEAT_DSC COSCS$W_LENGTH]) GTR .CCB CLUBSW_RBUF_SIZE] ; 
04 ¢ ¢ THEN : 
04 BEGIN : 
0424 3 FORSSSIGNAL_STO (FORSK_OUTSTAOVE); ‘ 
ps2 ; RETURN; ; 
0426 END : 
Rese 2 E : 
0428 2 DO_WRITE (); ; 
oh} 2 ‘ 
0430 2 : 
0431 2 ‘+ : 
ote § If not complex, write leading space and repeat count. : 
0434 2 : 
0435 2 IF .ELEM_TYPE EQL .LELEM_TYPE ! True if not COMPLEX ; 
0436 § THEN ; 
0437 BEGIN : 
0438 3 1+ } ; 
0439 3 ! Don't put the leading space if this is a CHARACTER value unless : 
peed ; it's also the beginning of the record. ; 
0442 3 IF (.ELEM_TYPE NEQU DSCSK_DTYPE_T) OR ; 
Ree? : “ (.¢CB [CLUBSA_BUF_PTR] EQLA .CC8 CLUBSA_BUF_BEG)) : 
0445 3 CHSWCHAR_A (Z%C° *, CCB CLUBSA_ BUF _PTR)); : 
0446 3 CCB CLUBSA_BOF_PTR) = CHSMOVE (.REPEAT_pSC [pscsw LENGTH], : 
0447 3 -REPEAT_DSC COSCSA_POINTER], .CCB CLUBSA_BUF_PTR)); 3 
0448 2 END; ‘ 
0449 2 : 
0450 2 '¢ : : 

Be2! $ } If the element is a string Literal, then move it into the record. 

0453 2 

0454 2 IF .LELEM_TYPE EQL DSCSK_DTYPE_T 

0455 THEN 

0456 BEGIN 

457 LOCAL R 3 

Bees P; ! Pointer to the string Literal 

0460 P = CHSPTR (.ELEM_ADR); ; 
0461 L = .ELEM_SIZE; 

046 

046 ) + : 


LUBSA_BUF gl .CCB CLUBSA pur ATR) 
T LU RJ] +71 


R}) NEQ .CCB BSA_RBUF _AD 
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ye 
(%C’ ", CCB CLUBSA_BUF_PTRI); 


=e 
>-— 
zn 
‘ 
>-~ 


'¢ 
! If the string is longer than the record buffer, 
; move in the part that fits and write the record. 


~-L GTR (DIFF = CHSDIFF (.CCBCLUBSA_BUF_ENDJ, .CCBCLUBSA_BUF _PTRI)) 


lolelelelelelelolelelelolalel ele! al alo) 
ee et et et et ak ee et ek ee et et et et et et 
WOWDDODwwwoy Vn yNNNNS 
NOUS WI OODONOUS Wr 


VMEWN OC OONAOUSWN OVD ONOUSWNHOD 


SEERA REPRE EERE EER PERE PPR RPE 
WA WU AA AAT RIUIININIUNIIN 2 3 a 3G 


; 3 

; 4 

; 4 

: : 

: 

; 4 

; 3 

; 4 BEGIN 

; 4 CCBCLUB$A_BUF_PTR] = CHSMOVE (.DIFF, .P, .CCBCLUBSA_BUF_PTR]); 

: : 4 = CHSPLOS (7P, .DIFF); 

; 488 4 IF .L GTR O : 
; 489 4 THEN F 
: 0490 5 BEGIN F 
3 0491 5 DO_WRITE (); ‘ 
; 0492 5 CHSWCHAR_A (%C' ', CCB CLUBSA_BUF_PTRI); | 5 
; 0493 4 END; | ; 
3 0494 ; END; : 
$ 0495 : 
; 0496 3 ‘+ 

3 0497 3 ' move in the rest of the string. 

3 0498 3 le 

3 7 0499 3 

; : £4 ; CCBCLUBSA_BUF _PTR] = CHSMOVE (.L, .P, .CCBCLUBSA_BUF_PTR]); 

: 440 0502 3 END 

> 441 0503 3 

: 442 0504 2 ELSE 

; 443 0505 ¢ 

> 4446 0506 BEGIN 

> 445 0507 3 

> 446 0508 3 LOCAL ; : . 

: 647 0509 3 DSC: BLOCK(8, BYTE]; ! static string descriptor for output field 

> 448 0510 3 

> 449 0511 3 '+ : 

; 450 0512 3 !' Perform the appropriate conversions. 

3: 6451 0513 3 le 

; $36 0514 ; : ’ 

; 65 0515 IF .ELEM_TYPE NEQU .LELEM_TYPE ! Only happens if item is complex 

> 454 0516 3 THEN 

3; 4455 0517 4 BEGIN 

: 456 0518 4 LOCAL 

3; 457 0519 4 VALUE _ADDR ! Address of value ] 

: 458 0520 4 STRING]: VECTOR £33 -ByTE). ! Result of conversions 

: 459 0521 4 STRING2: VECTOR -BYTEI, 

: 460 0256 & LENGTH1, ! Length of values 

; 461 0523 4 LENGTH2 

: 46 0524 4 RPT_LENGTH, ' Length of repeat count 

: 46 B26? 4 LEFTI, 

3 464 258 4 LEFT2 ; 

; 465 05 4 CONVERT_RIN, ! Address of convert routine 


| r 2 
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> 466 0528 4 DIGITS ! digits_in_fraction 

: 467 05 9 4 EXP DIGITS; i digits-inzexp 

: 468 530 4 DSC_COSCSA_POINTER] = STRING(; 

; 469 0531 4 SELECTONE 7LELEM_TYPE OF 

; 470 05 ¢ 4 a 

3 471 05 4 DSC$K_DTYPE_FC): 

3 8 0534 5 BEGIN 

; 47 0535 5 DIGITS = 7; 

> 474 0536 5 EXP_DIGITS = 2; 

: 475 037 5 CONVERT RIN = FORSCVT_F_TG; 

: 476 0538 5 DSC CDST$W_LENGTH] = 143 

; 477 0539 4 END; 

: 678 0540 4 Cosc$k_bTYPE_pCc) 

3 479 0541 5 BEGIN 

: 480 030g 5 DIGITS = 16; 

> 481 0543 5 EXP DIGITS = 

: 48 0544 § CONVERT OR -“forse $CVT_D_TG; 

> 48 0545 5 DSC CDS rou LENGTH) = 233 

> 484 0546 4 END; 

3; 485 0547 4 CDSC$K_DTYPE_GCJ | 
; 486 0548 5 BEGIN | 
: 487 0549 5 DIGITS = 15; 
; 488 0550 5 EXP_DIGITS = 3; 
; 489 0551 5 CONVERT RTN = FORSCVT_G_TG; 
: 490 0552 5 DSC COSTSW_LENGTH] = 23; 
> 491 0553 4 END; 
3 492 0554 4 TES; | 
3; 493 0555 4 IF NOT (CONVERT RTN) (.ELEM_ADR, DSC, .DIGITS, 0, 1 

> 494 0556 4 ‘ DIGITS) 

: 495 0557 4 HEN 

> 496 0558 4 CCB CISB$B_ERR_NO] = FORSK_OUTCONERR; 

: 497 0559 4 
: 498 0560 4 1+ 

; 499 0561 4 i Get length of real part. | 
; 500 0562 4 ie 
; 501 0563 5 BEGIN 

s 302 0564 5 LOCAL 

; 503 0565 5 RIGHT ;__! Boundar ry columns of converted value 
> 504 0566 5 LEFT! = CHSFIND_NOT_CH (.DSC CDSC$W_LENGTHJ, "DSC C CD SCSA POINTER], %C° '); 
3; 35 0567 5 RIGHT = CHSFIND-CH % (.0SC COSCSW_LENGTH] - CHSDIFF (.LEFT1, .DSC CDSCS$A_POINTER])), .LEFT1, %C° 
: 506 0568 5 IF CHSEAIL ( (RIGHT) 
; 507 0569 5 THEN 

: 508 0570 5 RIGHT CHSPLUS, ¢ DSC CoSCSA POINTER], .DSC CDSCS$W_LENGTH]); 

: 509 0571 ‘5 LENGTH! = CHSDIFF (RIGHT, .LEFT1) 

s 50 b2§ 4 END; 

: 511 0573 4 IF .LELEM_TYPE EQL DSCSK_DTYPE_FC 

: Sie 0574 4 THEN 

3 513 0575 4 VALUE_ADDR = ELEM_ADR [1] 

3: 514 0576 4 ELSE 

3 515 0577 4 E_ADDR = ELEM ADR (2); 

: 516 0578 4 DSC CDSC$A LOBINTER] = 

3 517 0579 4 IF NOT (.CON NVERT RTN) hs VALUE: _ADDR, DSC, .DIGITS, 0, 

: 518 0580 4 .EXP_DIGITS 

3 «519 0581 4 THE 

: 520 0382 4 CCB CISB$B_ERR_NO] = FORSK_OUTCONERR; 

s Ser 0583 4 

s See 0584 4 


15. 
FORSSUDF WL ss FORTRAN Write List Directed UDF 16-5 0 -VAX-11 BLiss-32 v4.07 Page 1 
1-028 =138% 99:35:80 TosReTFORUDF UL 63951 art 


~M 
mn 
oO 


2 14-5 FORR 
s Seo 0585 4 ! Get Length of imaginary part. : 
: 38 0586 4 le . 
; 252 0587 BEGIN ; 
; 526 0588 LOCAL ‘ 
, Ser 0589 RIGHT; ! Boundar ry coluans of congertet value . 
; 528 0590 5 LEFT2 = CHSFIND NOT a (-0S¢ DSC$W_LENGTH], .DSC CDSCSA_POINTER], %C' '); : 
3 2¢7 0591 ‘5 RIGHT = CHSFIND T (.DSC COSCSW_LENGTH] = CHSDIFF (.LEFT2, .DSC CDSCS$A_POINTER])), .LEFT2, %C° : 
: 530 0236 5 IF CHSFAIL (. RIGHT) : 
s $5) 0593 5 THEN ; 
: 532 0594 5 RIGHT CHSPL US (.DSC_CDSCSA_POINTER], .DSC CDSC$W_LENGTH)); : 
; 533 0595 5 LENGTH2 = CHSDIFF «RIGHT, .LEFT2); : 
3 230 0596 4 END; ; 
; $55 0597 4 ; 
s 3 0598 4 '+ ; 
s Oar 0599 4 ! If entire. oases will fit on this Line, put it there. ; 
; ta 0600 4 ! If it won't go on this Line, but will go on a new Line, : 
3 339 0601 4 ! put entire constant on new Line. : 
; 540 0602 4 i Otherwise, if it can be split, split it. Error if either : 
s 36) 0603 4 ! part is larger than record buffer size. : 
: 542 0604 4 i- ; 
; 543 0605 4 . 
3 544 0606 4 RPT_LENGTH = .REPEAT_DSC CDSC$W_LENGTH); : 
: 349 0607 4 of. LENGTH + .LENGTH2 + .RPT_CENGTH + 3) LSSP .CCB CLUBS$W_RBUF_SIZE] | : 
: 547 0609 5 BEGIN | ; 
; 548 0610 5 IF (.LENGTH1 + .LENGTH2 + .RPT_LENGTH + 3) GTRP CHSDIFF (.CCB CLUBSA_BUF_ENDJ, : 
; 549 0611 5 . CCBCLUB$A_BUF _PTRJ) | : 
: 550 0612 5 THEN | : 
; 551 0613 § DO_WRITE (); | ; 
: 552 0614 5 CHSWCHAR_A (3C' ', CCB CLUBSA_BUF PTR); : 
s 553 0615 5 CCB CLUBSA_BUF _PTR] = CHSMOVE” (.RPT_LENGTH : 
: 554 0616 5 .REPEAT_DSC CDSC$A_POINTER], .CCB CLUBSA _BUF_PTRI); : 
s So 0617 5 CHSWCHAR_A A TXC'(', CCB CLUBSA_BUF PTR); . 
; 556 0618 5 CCB CLUBSA_BUF_PTR] = CHSMOVE (.LENGTH1, .LEFT1, .CCB CLUBSA_BUF_PTRJ); : 
3 Sor 0619 5 CHSWCHAR_A (%C°,', CCB CLUBSA_BUF _PTRI); : 
: 558 0620 5 CCB CLUBSA_BUF_PTR] = CHSMOVE (.LENGTH2, .LEFT2, .CCB CLUBSA_BUF_PTRI); : 
3 337 0621 5 CHSWCHAR_A™(ZC*)', CCB CLUBSA_BUF_PTR]); : 
: 560 0622 5 END ; 
3; 561 0623 4 ELSE : 
; 562 0624 5 : 
3; 563 0625 5 IF (.LENGTH1 + .RPT_LENGTH + 2) GEQP .CCB CLUBS$W_RBUF_SIZE] 3 
: 564 0626 5 THEN 3 
s 365 0627 6 BEGIN 3 
: 566 0628 6 pores IGHAL STC (FORSK_OUTSTAOVE); 3 
: 567 0629 6 RETURN; 5 
: 568 0630 5 END; ; 
; 569 0631 5 IF (.LENGTH] + .RPT_LENGTH + 2) cBThe CHSDIFF (.CCB CLUBSA_BUF_END], 3 
; 570 0632 5 B CLUBSA_BUF _PTR ]) : 
: Srl 0633 5 THEN 3 
3; 572 0634 5 O_WRITE (); : 
: 573 0635 5 CHSWCHAR_A~(%C° *, CCB CLUBSA _BUF PIRI): : 
3 574 0636 5 CCB CLUBSA_BUF_PTR] = CHSMOVE~(.RPT_LEN : 
: 575 0637 5 REPEAT DSC [DSCSA_POINT Eri .ctB CLUBSA _BUF_PTRI); ; 
; 576 0638 5 CHSWCHAR_A TXC'(', CCB CLUBSA Bu PTR}); 
: 577 0639 5 CCB CLUBSA_BUF_PTR] = CHSMOVE~(.LENGTH1, .LEFT1, .CCB CLUBSA_BUF_PTRI); 
; 578 0640 5 CHSWCHAR A~(ZC*,", CCB CLUBSA 8 BUF _PTR]); 
: 579 0641 5 IF (.LENGTH2 + 2) GTRP .CCB CCUB$Q_RBUF SIZE) 


re 
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DO WRIT 
CHSWCHA *, CCB CL usse -BuF PTR); 
PTR] = CHS (LENGTH, -LEFT2, .CCB CLUBSA_BUF _PTRI); 


cee CLUBSA BUF _PTRI); | 


o 
ao 
@ 
= 
Cc 
2@ 2m 
al 


END 
ELSE 
BEGIN 


DS cEDSCSu_L LENGTH] = .L = 1; 
DSCEDSCSA“POINTER] = *  cCBtiuBsA_BUF_PTRI; 


pefofel ol olelolololololololeoloelolo) 
PAEAAAAAAA AAA AAAS SO 
we ww ot et ee 
ONAVUESWN—OOONOUS Wr 


DDE AAAS SAS STASIS STSISISIOSIS 
ODOOOODDOODOO0OO® 


SOON OUSWN—-OOOnN 


IF NOT 
cage TLELEM. TYPE FROM DSCSK_DTYPE_BU TO DSCSK_DTYPE_D OF 


C DSC$K -DTYPE aa BSCSK DTYPE_LU]: 
OTSSCUT_L (.ELEM_ABR, DSC); 


C DSCSK -DTYPE BU. “Dscsk DIVPE .B. DSCSK DTYPE W, D C$K_DTYPE_I.J: 
TSSCOT_C_TI (.ELEM_ADR. DSC, T, .ELEM.SIZE); 


C DSCS$K_DTYPE_F, DSC$K_DTYPE_p): 
BEGIN 


$ 
Z 


' holds double precision floating value | 
12E EQL XUPVAL 


ELS 
-ELEM_ADR(1)); 
FORSCVT_D TG(D_VALUE, DS 
, * pete EM_TYPE EQL DSCSK _DTYPE_F 


Be Be Oe Be Se Re Oe Se Oe Oe ee Oe Oe Oe Oe Se HS e Be Se OH Se SH Se Oe Se Se Oe SESE SESE SH Se ae SHS Se SH Be ae 


ELSE 
16), 1) 
END; 


C INRANGE J: 0; ! this can not happen 


{C OUTRANGE J: 
CASE . sLELEN. TYPE FROM DSCSK_DTYPE_G TO DSCSK_DTYPE_H OF 


COSCS$K or eRety 
REtGT -S. TG (ELEM_ADRCOJ, DSC, 15,_0, 3); 
'"1 digit tm integer part, 3 in oats 


H]): 
RSCVT_H_TG (ELEM ADRCOJ, DSC, 33, 0, 
“!"1 digit Tn integer part, 4 * Tae TOR 


WAI AIPIPOPONPININININPONYND 2 PO OO 


COSCS$K Se bs tat 


o 
oO 
oo 
oOo 
oa 
~N 
So 
PUPP PVG IO SINNED OR NINN ND ODO TUTTI BB BANE BPN IO OO 


: 0671 


OOO. %.O. O.  H.D.. H.P. MD.  D. O-O-- OD. .O.- O. 
SARUYSSBSSVEARANLSSarseanrwn—oSeue 
° 
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: 637 0699 3 TES ; 
; 638 0706 TES) ; 
; 639 9701 4 THEN ; 
; 640 07 é 4 ; 
3 641 0703 4 : 
3 64 0704 4 CCBCISBSB_ERR_NO] = FORSK_OUTCONERR; ; 
: «64 0705 4 CCBCLUBSA_BUF_PTR] = CHSPLUS(7CCBCLUBSA_BUF_PTRJ, .L = 1); : 
> 644 0706 4 | : 
> 645 0707 4 \¢ | ; 
: 646 0708 4 ' If there was a repeat count, left justify the value. : 
3 647 0709 4 ie | ; 
; 648 0710 4 ; 
> 649 0711 4 IF_.REPEAT_DSC CDSC$W_LENGTH] GTR 0 | : 
; 650 Orie 4 THEN : 
>; 651 0713 5 BEGIN | ; 
; 65 0714 5 LOCAL ; 
; 65 0715 5 POS; ; 
> 654 0716 5 POS = CHSFIND_NOT CH (.DSC CDSCSW_LENGTH], .DSC CDSCSA_POINTER], %C' '); | ; 
; 655 0717 5 IF NOT CHSFAIC (.POS) | : 
; 656 0718 5 EN ’ 
; 657 0719 5 CCB CLUBSA_BUF_PTR] = CHSMOVE (CHSDIFF (.CCB CLUBSA_BUF_PTR], .POS), : 
: 658 0720 5 -POS, .DSC CDSC$A_POINTERJ); | ; 
>; 659 0721 4 END; | ; 
; 660 0722 4 : 
; 661 0723 3 END; : 
3 662 0724 3 : 
; 663 0725 2 END; ; 
> 664 0726 2 RETURN; : 
3 665 0727 1 END; | : 
| Ps 
18 14 OB 18 OF 00 OC 07 05 00 02 02 05 00 00 OOOIA P.AAA: .BYTE 0, 0, 5, 2, 2, 0, 5, 7, 12, 0, 15, 24, -  ; : 
13° 2B 00029 11, 20,24, 48, 19 : | ; 
2h 4C 53 21 00028 P.AAB: .ASCII \!SL#\ : | : 
FIELDSIZE= P.AAA : 
.EXTRN SYSSFAO | : 
O7FC 00000 -ENTRY FORSSUDF_WL1, Save R2,R3.R4,R5,RO.R7.RB.RI,~: wa : 
5E AC AE 9E 00002 MOVAB -84(SP), SP : 3 
58 04 AC 00 00006 MOVL  ELEM_TYPE, R8 > 0358 | ; 
03 6C 91 OOOOA CMPB ss CAP) > #3 ; 0350. ; 
2F 1B 00000 BLEQU 5$ ; | : 
01 10 AC 01 0000F CMPL FC_FLAG, #1 ; 0353. ; 
OT Oe 90018 “gree po 
10 at 05 b0018 1$: TSTL FC_FLAG ; 0356. ; 
: 14 90019 BGTR 5$ ; | 
OA 8 D1 00018 CMPL = RB, #10 ; 0360. 
05 if OO1E BNEQ 2$ ; | 
56 OC DO 000 ° MOVL #12, R6 : 
1¢ 11 000 BRB 6$ ; 
08 58 D1 00025 2s: CMPL =sRB,, #11 ; 0361 
05 .. 0028 BNEQ 3$ 3 
56 0D DO 0002A MOVL #13, R6 ; 
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12 11 00020 BRB 6$ 
1B 5 D4 90 F 3$: CMPL RB, #27 
05 13 00032 BEQL 
56 4 CE 00034 MNEGL #1, R6 
8 11 00037 BRB 6 
56 1D DO 00039 4s: MOVL #29, R6 
03 11 0003C¢ BRB 
56 58 DO OOO3E 5$: MOVL RB, LELEM_TYPE 
59 D4 00041 6$: CLRL 
OE 56 D1 00043 CMPL “ee TYPE, #14 
07 12 00046 BNEQ 
59 06 00048 INCL 
57 02 DO 0004A MOVL ay L 
11 11 00040 BRB 9$ 
1B 56 D1 OO04F 7$: CMPL §- LELEM_TYPE, #27 
07 1F 00052 BLSSU. 8 
57 86 AF46 9A 00054 MOVZBL FIELDSIZE-13CLELEM_TYPEJ, L 
05 11 00059 BRB $ 
57 8C AF46 9A 0005B 8S: MOVZBL FIELDSIZECLELEM_TYPEJ, L 
4C AE B4 00060 9$: CLRW  REPEAT_DSC 
04 6C 91 00063 CMPB sss CAP*), 
37 1B 00066 BLEQU 
01 14 AC D1 00068 CMPL §- REPEAT_CNT, #1 
31 15 0006C BLEG 10% 
50 AE 40 AE 9€ O006E MOVAB REPEAT aa REPEAT spscrs 
4C AE O10E000C 8F DO 0007 MOVL Fi 7606? 
3C AE FF7D CF 9E 00078 MOVAB P.AAB 
38 AE 010E0004 8F DO 00081 MOVL wi re9t7e4.- 
50 14 AC DO 00089 MOVL = REPEAT CNf px COUNT 
50 DD 0008D PUSHL REPEAT ~COUN 
50 AE 9F OOO8F PUSHAB REPEAT 
54 AE 9F 00092 PUSHAB REPEAT “DSC 
44 AE 9F 00095 PUSHAB FAO_DS 
000000006 00 04 FB 00098 CALLS #4, ~SYSS$FAO 
51 4C AE 3C OOO9F 108:  MOVZWL REPEAT “DSC, RI 
51 57 CO 000A3 ADDL@ R1 
50 B4 AB BO AB C3 000A6 SUBL =B0(ccB), -76(CCB), RO 
50 51 D1 OOOAC CMPL RO 
OE 15 OOOAF BLEQ oF 
51 D2 AB 10 00 €D 00081 CMPZV 16 #16, -46(CCB), R1 
03 18 00087 BGEQ = 118 
0220 31 00089 BRW 3 
0000v 30 O00BC 11$:  BSBW  DO_WRITE 
S46 58 D1 O00BF 12$: CMPL Rg LELEM_TYPE 
1E 12 000C2 BNEQ 15$ 
OE 58 D1 0004 CMPL Rs #14 
07 12 000C7 BNEQ 13$ 
BC AB B0 ag D1 990¢9 CMPL -80(CCB), -68(CCB) 
0 if O0cE BNEQ 14 
B80 8B 20 90 00000 13$ MOVB #32 a@-80(CCB) 
BO AB 06 00004 INCL (ccB) 
B80 8B 50 BE 4C AE 28 00007 14$ MOVC3 REPEAT DSC, @REPEAT_DSC+4, @-80(CCB) 
AB D9 000D MOVL R3, -80(CCB) 
A 3 OE 15$ MOVAB ~80( cB), R10 
E ES O00E BLBC 19$ 
9 DO O00E9 MOVL FEM ADR, P 
? DO O00ED MOVL  ELEMTSIZE, L 


ot 26 ar ats 
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FORSSUDF _WL FORTRAN Write List Directed UDF 18-Sep=1 984 AX-11 Bliss-32 V4.0-7 Pa 18 
1-028 12-808= 1382 99:38:60 FAN Ohi eg ae Me On rts - 
00 87 04 8B 58 28 F moves) oL NGTHI @LEFT1, @0(R7) : 061 ; 
eS 38 09 § ts move, RS = 
00 87 26 9 0 £8 HOVE Me eean) > 0619 ; 
00 87 00 8g 5 4} 00 7E MoVC3) soL LENGTH @LEFT2, a0(R7) + 0620 : 
6 53 D0 00284 MOVL : : 
00 287 29 90 00 87 MOVB nat Ra?) > 0621 ; 
67 D6 00288 INCL R75 : ; 
52 02 A948 oe 68 4 36$ MOVAB 2<RPT LENGTH) CLENGTH11, R2 ; ete 
52 D2 AB 10 00 ED 00 38 CMPZV #16, -46(CCB), R2 : | ; 
41 18 00 99 BLEQ : | ; 
50 B4 AB 6A C3 00298 SUBL (R10), =76(CCB), RO : 0632. ; 
50 32 D1 002A0 CMPL = R2,, RO : | ; 
03 1B 002A3 BLEQU 5 : | ; 
0000v 30 002A5 BSBW dO WRITE + 0634. ; 
57 BO AB 9E 002A8 37$: MOVAB -80(CCB), R7 > 0635. ; 
00 87 20 90 OO2AC MOVB #32, @0(R7) : ; 
67 D6 00280 INCL (R? : ; 
00 87 50 BE 59 28 00 Be MOVC3 RPT_LENGTH, @REPEAT_DSC+4, a0(R7) : 0637. F 
67 53 DO 0028 MOVL  R3,~(R7) : | ; 
00 87 28 90 00288 MOVB #46, a0(R7) + 0638 ; 
67 D6 002BF INCL tR R? : | ; 
00 B7 04 BE 58 28 002C1 MOVC3 LENGTH1, @LEFT1, a0(R7) : 0639 : 
67 53 D0 002¢7 MOVL 75 : : 
00 87 2C 90 OO2CA MOVB #44, @0(R7) : 0640. ; 
67 D6 O02CE INCL. (R75 : | ; 
50 02 Abd SE 00200 MOVAB 2(R6) : 0641 | : 
50 D2 AB 10 00 ED 002D4 CMPZV #0 rion ° necece). RO : : 
OC 1E OO2DA BGEQU 39$ : | ; 
7E 42 8F 9A 002DC 38$:  MOVZBL #66, -(SP) + 0644 | : 
000000006 00 01 FB 002E0 CALLS #1, FORSS$SIGNAL_STO : | F 
04 002E7 RET ; 0643) 3 
0000v 30 00268 39$:  BSBW  DO_WRITE : 0647 | ; 
58 0 AB 9E 002EB MOVAB -80(CCB), R8 > 0648 | : 
00 B8 20 90 OO2EF MOVB #32, a0(R8 : ; 
68 D6 002F3 INCL (RBS : : 
00 B8 00 BE 56 28 003F5 MOVC3 LENGTH ¢ @LEFT2, a0(R8) > 0649 | ; 
68 53 DO O002FB MOVL R ; F 
00 88 29 90 O0erE MOVB #41, a0(R8) : 0650. ; 
68 D6 00302 INCL (R85 ; : 
04 00304 RET > 0515. ; 
57 D7 00305 40$: DECL R7 : 0658 | : 
38 =AE 57 80 00307 MOVW RZ, DSC : ; 
3C— so 6A DO 00308 MOVL (R10), DSC+4 : 0659 : 
09 02 56 CF 0030F CASEL LELEM TYPE, #2, #9 : 0662 : 
OOA2 0048 0048 0057 00313 41$: -WORD  46$-4T$,- ; : 
OOA2 0057 0057 0057 00318 45$-41$.- : : 
0068 0068 0032 45$-41$.- : : 
53$-41$,- : 3 
46$-41$.- ; ; 
46$-41$.- : : 
o95-313-7 : 3 
53$-41$.- : ; 
47$-41$.- : : 
47$-41$ : ; 
01 1B 56 CF 00327 CASEL LELEM_TYPE, #27, #1 : ; 


0691 | 
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FORSSUDF _WL FORTRAN Write List Directed UDF 16-Sep-1984 AX-11 ff s$-32 V4.0-74 Page 19 
1-028 on 808-1 3Be 99:35:82 PANG Beis eae Me Ona. - Al 
001A 0004 00328 42$: . WORD $3$-6 : | 
03 DO OO32F 43$:  PUSHL #3 + 0694 
01 pp 8 1 PUSHL #1 : 
7E OF 7D 00333 OVQ #15, =(SP) : 
oe AE BD 00339 BUSHL” ELEM. ADR 
000000006 00 06 FB 09 g CALLS a FORSCVT_G_TG : 
6D 11 0034 BRB 52$ : 
04 DD 00345 448 PUSHL + 0697 
01 DD 00347 PUSHL #1 : 
7E 21. 7D 00349 MOVQ #33, =(SP) : 
48 AE 9F 0034C PUSHAB DSC : 
OC AC DD O034F PUSHL ELEM_ADR : 
000000006 00 06 FB 00352 CALLS #6, FORSCVT_H_TG : 
57 11 00359 BRB 52$ : 
38 «=6AE «OOF 0035B 45$ PUSHAB DSC > 0665 
0C AC DD 0035 PUSHL ELEM_ADR : | 
000000006 00 02 FB 00361 CALLS ae OTS$CVT_L_TL : 
48 11 00368 BRB 52$ ; 
08 AC DD 0036A 46$: PUSHL ELEM_SIZE : 0668 | 
01 DD 0036D PUSHL #1 : | 
40 AE 9F O036F PUSHAB DSC : | 
0C AC DD 00372 PUSHL ELE ; 
000000006 00 04 FB 00375 CALLS a Matescvr _L_TI : 
34 11 0037C BRB 52$ ; 
50 OC AC DO 0037E 47S: MOVL §_ELEM_ADR, RO > 0674 
30 AE 60 D0 00382 MOVL (RO)> D_VALUE : | 
04 08 AC D1 00386 CMPL ELEM_SIZE, 7 0675 | 
04 12 0038A BNEQ 48$ F 
50 D4 0038C CLRL RO : 
04 11 0038 BRB 49$ ; 
50 04 AO DO 00390 48s: MOVL  4(RO), RO : 0679 
34 «AE 50 DO 00394 49$: MOVL RO, D_VALUE+4 3 0675 | 
01 DD 00398 PUSHL #1 > 0680 | 
OA 58 D1 0039A CMPL ss RB, #10 : 0681 
04 12 0039p BNEQ 50$ ; 
07 DD 0039F PUSHL #7 F 
02 11 O03A1 BRB 51$ : 
10 DD 003A3 508 PUSHL #16 : 
40 AE 9F 003A5 51$ PUSHAB DSC > 0680 
3C = AE sOOF «O03A8 PUSHAB D_VALUE ; 
000000006 00 04 FB 003A CALLS #%, FORSCVT_D_TG ; | 
5 20 f 0038 523: BLBS RO. 54$ ; 
FF70 CB F 90 00385 53$: Ove gs, -144(CCB) > 0704. 
6A 57 CO 003BA 54$: ADDL2 7, (R10) : 0705 | 
4C AE 8 00380 TSTW  REPEAT_DSC : 0711. 
1A 13 0030 BEQL 368 : 
3C Ss BE 38 AE 20 38 00 ce SKPC = #32, ~_DSC, aDSC+4 : 0716 
02 12 003¢ BNEQ 55$ : 
51 D4 OO3CA CLRL = R21 ; 
51 D5 OO03CC 558: TSTL POS : 0717 | 
0c 13 00 cE BEQL 56$ ; 
50 6A 51 C3 0030 SUBL3 POS, (R10), RO : 0719 | 
3C—s« BEE 61 20 28 00304 MOVC Rd, (POS), apSc+4 : 0720 | 
6A 5 bd 0309 MOVL 3, (R10) ; 
4 0030C 568: RET : 0727 
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; Routine Size: 


679 


FORTRAN Write List Directed UDF 
GLOBAL ROUTINE FORSSUDF_WL9 

: JSB_UDF9 NOVACUE = 
BEGIN 


ae 
9 1 
0 1 
1 
§ EXTERNAL REGISTER 

¢ CCB: REF SFORSCCB_DECL; 
8 

7.4 


JSB_REC9 (FORSSAA_REC AR? + 
“ISBSK_FORSTTYCO + 


END; 


OOOOCOCCOCCOOooO 
NNN NNN Ns 


50 FF71 CB 


50 0000000060040 
000000060040 


oo 


20 bytes, Routine Base: 


0740 1 


16- sep-19 4 2 98: 357% AX-11 B 


Bli ieee -32 v4.0-7 
14-Sep-1984 FORRTL.SRCJF 


ORUDFUL. 633; 3% 


-FORSSAA_REC_PRO C.CCB CISBSB_STTM_TYPE] - 


9A 00000 FORSSUDF WL9:: 
MOVZBL -143(CCB), RO 

DO 00005 MOVL FORSSAA_REC_PROCRO], RO 

17 00000 JMP FORSSAA_REC_PROLROJ 


_FORSCODE + 040C 


re 


16 
FORSSUDF_WL FORTRAN Write List Directed UDF 18-Sep-1986 00:52:40 VAKe11 BLiss-32 v4_0-74 ° 2 
1-0 opr 3b fo: 85sec age 28 


28 14-Sep-19 FORRTL. SRC] FORUDFWL.B32;1 
> 681 0741 1 ROUTINE DO_WRITE ! do per-record formatting and write record 
; 68 Tok 1 JSB_REC1 NOVALUE = 
; 68 0745 1 !+ 
> 684 0744 1 !FUNCTIONAL DESCRIPTION: 

; 685 0745 1! 

; 686 0746 1: DO_WRITE calls the A REC1 level routine depending on the 
; 687 0747 1! stament type ISB$B_STIM 

; 688 0748 1! 

; 689 0749 1 | CALLING SEQUENCE: 

; 690 0750 1: 

: 691 0751 1! JSB DO_WRITE 

; brag 1! 

; 69 075 1 | FORMAL PARAMETERS: 

: 694 0754 1! 

; 695 0755 1! NONE 

; 696 0756 1} 

> 697 0757 1! IMPLICIT INPUTS: 

; 698 0758 1! 

; 699 0759 1! CcB Pointer to current logical unit block 

; 700 0760 1! 

; 701 0761 1 | IMPLICIT OUTPUTS: 

: 702 bree 7% 

; 703 0763 1! See module FORSSREC_PROC 

: 704 0764 1! 

; 705 0765 1 i- 

; 706 p766 1 

: 707 0767 2 BEGIN 

; 708 0768 2 

: 709 0769 2 EXTERNAL REGISTER 

; zig Bee § CCB : REF $FORSCCB_DECL; 

; vi 0772 2 JSB_REC1 (FORSS$AA_REC ART + ,FORSSAA_REC_PR1 C.CCB CISBSB_STTM_TYPE] - 
3; 713 0773 2 “ISBSK_FORSTTYCO + 

; 76 0774 2 

s 715 0775 2 RETURN; ' Return from DO_WRITE routine 
: 716 0776 1 END; ! End of DO_WRITE routine 


50 FF71 CB 9A 00000 DO_ sestchi 


MOVZBL -143(CCB), RO : 0773 
50 0000000060040 0 00005 MOVL FORSSAA REC PRIEROT, 0 : 0772 
0000000060040 17 0000D JMP —-- FORSSAATREC~PR1CRO ; 


; Routine Size: 20 bytes, Routine Base: _FORSCODE + 0420 


; Tv 0777 1 


D 16 
FORSSUDF _WL FORTRAN Write List Directed UDF 19=3007138% 
1-028 14-Sep-1984 
; 719 0778 1 END 
; 720 0779 O ELUDOM 
; PSECT SUMMARY 
: Name Bytes Attributes 
:  _FORSCODE 1076 NOVEC,NOWRT, RD, EXE, SHR, 
; Library Statistics 
“ea ae a ae en SVEN EG stueseas 
3 File Total Loaded Percent 
: _$255$DUA28:CSYSLIBISTARLET.L32;1 9776 20 0 
> _$255$DUA28: CFORRTL.OBJIFORLIB.L32; 711 190 26 
: 7$255$DUA28:CFORRTL.OBJIRTLLIB.L 32: 0 0 


Size: 

Run Time: 
Elapsed Time: 
Lines/CPU Min: 


COMMAND QUALIFIERS 


1055 code + 21 data bytes 
00:24. 
01:00.1 
906 


1 
Lexemes/CPU-Min: 16000 
penery Used: 357 pages 
Compilation Complete 


12:38:80 


LCL, REL, 


Pages 
Mapped 


581 
52 
8 


CON, PIC,ALIGN(2) 


proegee ing 


BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /NOTRACE/LIS=LIS$:FORUDFWL/OBJ=O0BJ$:FORUDFWL MSRC$:FORUDFWL/UPDATE=(ENH$: F ORUDF WL ) 
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